home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / determ4r / nosee.bas next >
BASIC Source File  |  1999-01-06  |  743b  |  14 lines
  1. Attribute VB_Name = "NoSee"
  2. Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer, ByVal hSrcDC As Integer, ByVal xSrc As Integer, ByVal ySrc As Integer, ByVal dwRop As Long) As Integer
  3.  
  4. Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
  5.        Public Const SRCCOPY = &HCC0020
  6.        Public Const SRCAND = &H8800C6
  7.        Public Const SRCINVERT = &H660046
  8.  
  9. Declare Function GetDesktopWindow Lib "user32" () As Long
  10. 'This is another example of making a form transparent
  11. 'but with this one your controls will be visible
  12. 'unless you set the property of the comtrol to transparent
  13. 'e-mail comments to webmaster@hider.com
  14.